Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng.
Program tinhtong.
Var N, i:=integer
Begin
Write(‘nhap so N =’)
Readln(N)
S=0
For i= 1 to N do S= S+i
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S=’,S)
Readln
End
Những câu hỏi liên quan
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Program Tong__nghich__dao;
Var
n,i:real;
S:Integer;
Begin
Write('Nhap n=');Readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Write('Tong can tim la: ', S:6:2);
Readln;
End.
Đúng 0
Bình luận (1)
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln(n);
S:=0;
While n<0 do
begin
s:=s+n/2; n:=n-1;
end;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Đúng 0
Bình luận (0)
Lỗi sai:
Program câu 1; -> Tên chương trình không chứa dấu cách trắng.
-> Sửa: Program cau_1;
Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n
-> Sửa:
Writeln(‘ Nhap gia tri n=’); Readln(n);
While n >0 do
s:=s+n/2; n:=n-1;
Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con.
-> Sửa
While n >0 do
begin
s:=s+n/2; n:=n-1;
end;
Đúng 0
Bình luận (0)
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
Readln
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
II. TU LUAN (64) Câu 9 (1.5 điểm). Chỉ ra lỗi sai trong các chương trình dưới đây và sửa lại cho đúng
(C) program tinh_a_mu_ng
var i,n: integer;
a, gia tri: real;
begin
write ('Cho so a: ');readln(a);
write ('Cho so mu n:');readin(n)
i :=1 giatri := 1 ;
while i < n do
begin
giatri :=giatri* a;
i:= i + 2
end;
writeln('a mu n bang : ", giatri);
end.
Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;
Lỗi: gia tri sửa lại: giatri
Lỗi: readin(n) sửa lại: readln(n);
Lỗi: i:=1 sửa lại: i:=1;
Lỗi: while i < n do sửa lại: while i <= n do
Lỗi: i:=i+2 sửa lại: i:=i+1;
Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);
Đúng 0
Bình luận (0)
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n ’); readln(n);
For i:1 to n do
Begin
Write(‘a[‘,i,’]’); readln(a[i]);
End;
s:0;
for i:1 to n do
if (a[i]mod 21) then s:s+a[i];
write(‘tong so le ’,s);
d:0;
for i:1 to n do
if (a[i]mod 30) then d:d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:1 to n do b[i]:2*a[i];
For i:1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với...
Đọc tiếp
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);
d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.
Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé
Đúng 0
Bình luận (0)
19 tháng 3 2022 lúc 19:27
Hãy cho biết giá trị của S sau khi thực hiện xong đoạn lệnh, nếu nhập n = 6:
Write('Nhap n = '); Readln(n);
S:=0;
For i:= 1 To n Do S:= S + 2*i;
A. 21
B. 42
C. 6
D. 0
Xem thêm câu trả lời
Tìm và sửa lỗi trong chương trình pascal sau: Uses crt; Var i, n, t : integer; Begin clrscr; write(Nhap so n ); readln(n); i : l; t : 0; while i n do begin t : t + i; i : i + l; write(Tong , t); Readln; end.
Đọc tiếp
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0; | sửa: i:=1; t:=0;
while i <= n do
begin
t := t + i;
i := i + l; | Sửa: i:=i+1;
-> Thiếu. Thêm: End;
write('Tong = ', t);
Readln;
end.
Đúng 2
Bình luận (0)
Câu 43: Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?
Var n, i , s:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua n :'); Readln(n);
s:=2;
For i:=1 to n do s:=s+1;
End;
a. 6.
b. 8.
c. 10.
d. 12.